home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 2005 July / Macworld CD 17.05.iso / Data / Main.dxr / 00126_windowShade For Intro Bar.ls < prev    next >
Encoding:
Text File  |  2000-02-28  |  1.5 KB  |  40 lines

  1. property TheMovie, SmallMovieBox, LargeMovieBox, TheMaximizer, TheWindowshade
  2. global gCurrentMovie
  3.  
  4. on new me
  5.   return me
  6. end
  7.  
  8. on getPropertyDescriptionList me
  9.   description = [:]
  10.   addProp(description, #TheMovie, [#default: 1, #format: #integer, #comment: "Spritenum of movie"])
  11.   addProp(description, #SmallMovieBox, [#default: 43, #format: #integer, #comment: "Spritenum of Small Movie Box"])
  12.   addProp(description, #LargeMovieBox, [#default: 44, #format: #integer, #comment: "Spritenum of Large Movie Box"])
  13.   addProp(description, #TheMaximizer, [#default: 45, #format: #integer, #comment: "Spritenum of Maximizer"])
  14.   addProp(description, #TheWindowshade, [#default: 46, #format: #integer, #comment: "Spritenum of Windowshade"])
  15.   return description
  16. end
  17.  
  18. on mouseUp me
  19.   m = sprite(TheMovie).movieSize
  20.   sprite(TheMovie).volume = 255
  21.   case m of
  22.     #notPlaying:
  23.       set the memberNum of sprite TheMovie to the number of member gCurrentMovie
  24.       set the rect of sprite TheMovie to rect(0, 285, 240, 480)
  25.       devis(LargeMovieBox)
  26.       vis(SmallMovieBox)
  27.       updateStage()
  28.       set the locH of sprite TheMaximizer to 179
  29.       set the locV of sprite TheMaximizer to 261
  30.       set the locH of sprite TheWindowshade to 196
  31.       set the locV of sprite TheWindowshade to 261
  32.       member(the memberNum of sprite TheMovie).controller = 1
  33.       vis(TheMovie)
  34.       updateStage()
  35.       sprite(TheMovie).movieRate = 1
  36.       sprite(TheMovie).movieSize = #Small
  37.   end case
  38.   pass()
  39. end
  40.